<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>5</cardCount>
<cardID>4384</cardID>
<listID>4637</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>448</width>
<height>296</height>
</cardSize>
<script>------------------RTF Capability-----------------on TestRTFglobal RTFSTATput resList() into rif r contains "FieldtoRTF" and r contains "RTFtoField" thenput true into RTFSTATelse put false into RTFSTATend TEstRTFfunction RTFisHereglobal RTFSTATreturn RTFSTATend RTFisHere-------------------------------------------------on openStack-- Requires handlers: createTheMenu,wrongStackif wrongStack() then pass openStack -- in case stackInUseif the version < 2.0 thenput "This stack is for Hypercard 2.0. If you do not have it installed, you " into tempput "will not be able to run some of the functions." after tempanswer tempend iflock screentestRTFcreatethemenupass openStackend openStackon closeStack-- Requires handlers: deleteStackMenu,wrongStackif wrongStack() then pass closeStack -- in case stackInUseput empty into StackMenu -- clean-up for exitlock screendeleteStackMenuif (the visible of cd fld "About 1" of card 1) thensend mouseUp to cd button id 5 of cd 1end ifpass closeStackend closeStackon resumeStack-- Requires handlers: createTheMenu,wrongStack-- Requires handlers: setLocationCheckMark,changeMenuItemStatusif wrongStack() then pass resumeStack -- in case stackInUsecreateTheMenusetLocationCheckMark(short name of this card)pass resumeStackshow menubarend resumeStackon suspendStack-- Requires handler: deleteStackMenu,wrongStackif wrongStack() then pass suspendStack -- in case stackInUsedeleteStackMenupass suspendStackend suspendStackfunction wrongStackreturn (line 1 of the stacks is not in long name of me)end wrongStack-------------------Menu Items-------------------------------on createTheMenu-- Requires function handlers: menuItemData,menuMsgDataglobal StackMenuput "Go To" into StackMenu -- Γêå-- remove any existing menus that might have the same nameif there is a menu StackMenu then delete menu StackMenucreate menu StackMenuput menuItemData() into menu StackMenuend createTheMenufunction menuItemData-- Requires function handlers:navMenuItemDataglobal backpopreturn navmenuitemdata()end menuItemDatafunction navmenuitemdatareturn "Import Text,Export Text,Stack -> Stack,-,Parameters"end navmenuitemdataon deleteStackMenuglobal StackMenuif StackMenu is in the menus then delete menu StackMenuend deleteStackMenuon unCheckItems theItemsglobal StackMenuif there is no menu StackMenu then exit unCheckItemsget navMenuItemData()repeat with count = 1 to number of items in itset checkMark of menuItem item count of it of menu StackMenu to falseend repeatend unCheckItemson setLocationCheckMark locationMenu-- Requires handler: unCheckItems-- set check mark for current user locationglobal StackMenuunCheckItems "Nav"if locationmenu is not in NavMenuItemData() then exit setlocationcheckmarkset the checkMark of menuItem locationMenu of menu StackMenu to trueend setLocationCheckMark----- Navigational Scripts --------------------on domenu tempglobal backpopif temp is "Import Text" thenglobal filenamelock screenset cursor to busygo to cd "import text"set name of cd button id 38 to "Select Stack"if visible of cd field "hidden" is true thenset the visible of cd field "hidden" to falseend ifsend "disableItems" to cdif checkfile(filename) then close file filenamesetlocationcheckmark(temp)put empty into message boxexit domenuend ifif temp is "Export Text" thenlock screenset cursor to busyglobal cardidgo to cd "Export Text"put name of this card into cardidsend "DisableItems" to cdif checkfile(filename) then close file filenamesetlocationcheckmark(temp)if visible of cd field "hidden" is true thenset the visible of cd field "hidden" to falseend ifput empty into message boxexit domenuend ifif temp is "Stack -> Stack" thenlock screenset cursor to busyglobal cardidput name of this card into cardidgo to cd "Stack -> Stack"send "disableitems (""e&"i""e&")" to cdsend "disableitems (""e&"j""e&")" to cdsend "testenable" to cdif visible of cd field "hidden" is true thenset visible of cd field "hidden" to falseend ifif checkfile(filename) then close file filenamesetlocationcheckmark(temp)put empty into message boxexit domenuend ifif temp is "Parameters" thenglobal cardidput name of this card into cardidgo card "parameters"setlocationcheckmark(temp)put empty into message boxexit domenuend ifpass domenuend domenufunction Disableitems1 param1,param2,param3,param4do "set name of cd button id "¶m2&" to ""e&"Open Stack""edo "put empty into cd fld id "¶m3do "put empty into cd fld id "¶m4do "set the textfont of cd fld ""e┬¼¶m1&"background to use""e&" to chicago gray"return trueend DisableItems1on dolock paramset lockscreen to paramset lockmessages to paramset lockrecent to paramend dolockfunction volumenamed filenameget offset (":",filename)put char 1 to it of filename into volnamereturn volnameend volumenamedfunction Checkfile filenameglobal errGlobalif filename is empty thenreturn falseexit checkfileelseput volumenamed(filename) into newVolumeif newVolume = empty thenreturn falseexit checkfileelseput OpenFiles(newVolume, "noDialog:errGlobal") into fileListif errGlobal Γëá empty thenanswer "Error:" && errGlobalput empty into errGlobalreturn falseexit checkfileend ifrepeat with rr = 1 to number of lines of filelistif line rr of filelist is filename thenreturn trueexit checkfileend ifend repeatend ifreturn falseend ifend checkfilefunction leafname fileinput (length(filein)) into temprepeat with rr = temp down to 1if char rr of filein is ":" then exit repeatend repeatreturn char (rr+1) to temp of fileinend leafname</script>
